home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / demos / demo609.dxr / Internal (lingo)_1.ls < prev    next >
Encoding:
Text File  |  1998-03-02  |  805 b   |  45 lines
  1. on startMovie
  2.   global gDemoStyle, gSection, gPrevMovie, gcountdown
  3.   put gDemoStyle
  4.   put gSection
  5.   put gPrevMovie
  6.   set gcountdown to 1
  7.   hDumpPrevMovie()
  8. end
  9.  
  10. on hWheretoGoNext
  11.   global gDemoStyle
  12.   if gDemoStyle = "full" then
  13.     go(1, "DEMO119")
  14.   else
  15.     if gDemoStyle = "group" then
  16.       go(1, "DEMO119")
  17.     else
  18.       if gDemoStyle = "single" then
  19.         go(1, "000E")
  20.       end if
  21.     end if
  22.   end if
  23. end
  24.  
  25. on hGoBackToMEnu
  26.   global gDemoStyle, gSection
  27.   if gDemoStyle = "full" then
  28.     go(1, "000MAIN")
  29.   else
  30.     if gDemoStyle = "group" then
  31.       go(1, "000" & gSection)
  32.     else
  33.       if gDemoStyle = "single" then
  34.         go(1, "000" & gSection)
  35.       end if
  36.     end if
  37.   end if
  38. end
  39.  
  40. on hDumpPrevMovie
  41.   global gPrevMovie
  42.   unloadMovie(gPrevMovie)
  43.   set gPrevMovie to the movieName
  44. end
  45.